(read-feature): Don't complete features not loaded from a file (which make

`unload-feature' to fail).

diff --git a/lisp/loadhist.el b/lisp/loadhist.el
index 61f15c8ef1c067d4d7a9338cfc6099ffd34e3d0f..6683f8ae4131ab2ba4861ca45ebb9d8cedc28b03 100644 (file)
--- a/lisp/loadhist.el
+++ b/lisp/loadhist.el
@@ -119,7 +119,9 @@ return the feature \(symbol\)."
                           (mapcar (lambda (feature)
                                     (list (symbol-name feature)))
                                   features)
-                          nil t)))
+                          ;; Complete only features loaded from a file
+                          #'(lambda (f) (feature-file (intern (car f))))
+                          t)))
 
 (defvaralias 'loadhist-hook-functions 'unload-feature-special-hooks)
 (defvar unload-feature-special-hooks